home *** CD-ROM | disk | FTP | other *** search
/ Celestin Apprentice 4 / Apprentice-Release4.iso / Source Code / C / Frameworks / Grant's CGI Framework 1.0b12 / Util / Version.c < prev    next >
Text File  |  1995-12-09  |  899b  |  45 lines
  1. /*****
  2.  *
  3.  *    Version.c
  4.  *
  5.  *    This is a support file for "Grant's CGI Framework".
  6.  *    Please see the license agreement that accompanies the distribution package
  7.  *    for licensing details.
  8.  *
  9.  *    Copyright ©1995 by Grant Neufeld
  10.  *    grant@acm.com
  11.  *    http://arpp1.carleton.ca/grant/
  12.  *
  13.  *****/
  14.  
  15. #include "compiler_stuff.h"
  16.  
  17. #include "Version.h"
  18.  
  19.  
  20. /***  FUNCTIONS  ***/
  21.  
  22. /* set the versionString to the short version string from the 'vers' resource with ID resID */
  23. void
  24. VersionGetShort ( short resId, Str255 versionString )
  25. {
  26.     Handle    resource;
  27.  
  28.     /* Get the resource */
  29.     resource = GetResource ( 'vers', resId );
  30.  
  31.     if ( resource == nil )
  32.     {
  33.         versionString[0] = nil;
  34.         return;
  35.     }
  36.     
  37.     /*    The short description (pascal) string starts at the 7th byte */
  38.     BlockMove ( (StringPtr) (*resource) + 6, versionString, (*resource)[6] + 1 );
  39.  
  40.     ReleaseResource ( resource );
  41. } /* VersionGetShort */
  42.  
  43.  
  44. /*****  EOF  *****/
  45.